home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / product.arc / MACRO55.MNU < prev    next >
Text File  |  1986-09-22  |  517b  |  16 lines
  1. [ FLANGE ]^C^C(Setq P1 (Getpoint+
  2. "Enter center of flange: "));\+
  3. (Setq OR (Getdist P1 "Outside radius: "));\+
  4. Circle;!P1;!OR;+
  5. (Setq IR (Getdist P1 "Inside radius: "));\+
  6. Circle;!P1;!IR;+
  7. (Setq BC (Getdist P1 "Bolt circle radius: "));\+
  8. Circle;!P1;!BC;+
  9. (Setq SH (Getreal "Bolt hole diameter: "));\+
  10. (Setq NHI (Getint "Number of bolt holes: "));\+
  11. (Setq NH (Float NHI));+
  12. (Setq SA (Getangle P1+
  13. "Starting angle of first hole: "));\+
  14. Circle;(Polar P1 SA BC);D;!SH;+
  15. Array;L;;C;!P1;(/ 360.0 NH);!NHI;;
  16.